program deconstruct_lister;
{$APPTYPE CONSOLE}
uses
  SysUtils, Deconstruction;

var
  i : integer;
begin
  for i := 0 to $ffff do
    writeln(hexstr(i),' = ',decomp(i));
end.
